home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO4.ARC / SETLAYER.LSP < prev    next >
Encoding:
Text File  |  1986-09-24  |  170 b   |  11 lines
  1. (defun c:SETLAYER (/ LAYER)
  2. (setq LAYER
  3.     (cdr
  4.         (assoc 8
  5.             (entget
  6.                 (car
  7.                     (entsel "Pick item for new layer "
  8. ))))))
  9. (command "LAYER" "SET" layer "")
  10. )
  11.